1 CLR:PRINTCHR$(142);:IFA=1THEN4
2 IFPEEK(828)=8THEN4
3 A=1:LOAD"FIZ+",8,1
4 GOSUB40:OPEN4,4,15:CLOSE4:IFSTTHENPRINT"[147]BITTE DRUCKER EINSCHALTEN!"
5 OPEN4,4,15:CLOSE4:IFSTTHEN5
6 OPEN4,4:POKE53280,6:POKE53281,6:PRINT"[158]":DIMCM$(40):CMD4,;:PRINTCHR$(27);:PRINT#4,CHR$(49)
7 CLR:S$="[165] ":E$=" [167] ":C$="":CU$="[207]":CM$="[180]":CL$="[204]":PRINT"[147]":A=1:DIMCM$(40)
8 PRINT"[147]** DATEN-EINGABE **
9 [153]"NAME SPALTE #"A" (^= ENDE/_=NEU)",:[153][199](13)
10 [161]I$:[139]I$[178]""[167]10
11 [139]I$[178]"ON"[176]I$[178]"CMD"[176]I$[178]""[176]I$[178]""[176]I$[178]"SAVE"[167]10
12 [139]I$[178]""[167]CM$(A)[178][200](CM$(A),[195](CM$(A))[171]1):[137]16
13 [139]I$[178]"_"[167]CM$(A)[178]"":[153]"LOAD":[137]9
14 [139]I$[178][199](13)[167]17
15 CM$(A)[178]CM$(A)[170]I$
16 [153]I$;:[137]10
17 [139]CM$(A)[178]"^"[167]24
18 [153]"LOAD**  DARSTELLUNG  **":[139]A[177]1[167]20
19 C$[178]S$[170]CM$(A)[170]E$:[137]21
20 C$[178]C$[170]CM$(A)[170]E$
21 [153]"";C$:LN[178]80[171][195](C$):[139](LN[171]3)[177][171]1[167][153]"";LN[171]3;:[153]"ZEICHEN UEBRIG"
22 [139]LN[179]0[167][153]"LOAD ZU LANG !":T[178]1:[129]T[178]T[164]1200:[130]:[137]7
23 A[178]A[170]1:[137]9
24 T[178]2:[129]T[178]T[164]([195](C$)[171]1):[139][202](C$,T,1)[178]"THEN"[167]CU$[178]CU$[170]"(null)":CL$[178]CL$[170]"SQR":CM$[178]CM$[170]"THEN":[137]26
25 CU$[178]CU$[170]"USR":CL$[178]CL$[170]"TO":CM$[178]CM$[170]" 
26 NEXT:PRINT"[147]O.K.?":PRINT"";C$
27 GETT$:IFT$<>"J"ANDT$<>"N"THEN27
28 IFT$="N"THENCLR:GOTO7
29 PRINT"[147]PAPIER EINSTELLEN UND TASTE DRUECKEN !"
30 GETT$:IFT$=""THEN30
31 OPEN4,4:CMD4,;:PRINTCHR$(27);:PRINT#4,CHR$(18):CMD4,;:PRINT#4,CU$CHR$(8)CHR$(13)CHR$(15);:CMD4,;
32 PRINT#4,C$CHR$(8)CHR$(13)CHR$(15);:CMD4,;:PRINT#4,CL$CHR$(8)CHR$(13)CHR$(15);
33 PRINT"[147]ZEILENLAENGE = 3 DRUCKZEILEN. SOLL DAS"
34 PRINT"GEAENDERT WERDEN?
35 [161]T$:[139]T$[178]""[167]35
36 [139]T$[178]"J"[167][133]"LOADNEUE LAENGE ";L2:[137]38
37 L2[178]3
38 L1[178]90[173]L2:L2[178]L2[171]1:T[178]1:[129]T[178]T[164]L1:TT[178]1:[129]TT[178]TT[164]L2:[157]4,;:[152]4,CM$[199](8)[199](13)[199](15);:[130]
39 [157]4,;:[152]4,CL$[199](8)[199](13)[199](15);:[130]:[138]
40 AA$[178]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)
41 AB$="[180]     FORM MAKER BY ERICK PARSONS     [167]
42 AC$[178]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR
43 AD$="[165]             [170]        [170]  [170]     [170]     [167]
44 AE$[178]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDSQRANDANDANDANDANDANDANDANDSQRANDANDSQRANDANDANDANDANDSQRANDANDANDANDANDSQR":[153]"SYSLOAD";:[153]AA$:[153]AB$:[153]AC$:T[178]1
45 [129]T[178]T[164]8:[153]AD$:[153]AE$:[130]:[160]4:[153]"    ANLEITUNG ? J/N
46 GETT$:IFT$=""THEN46
47 IFT$="J"THENGOSUB49
48 SYS(828):RETURN
49 PRINT"[147]"CHR$(14)"  [193][206][204][197][201][212][213][206][199]"
50 PRINT"[205]IT DIESEM [208]ROGRAMM KOENNEN [198]ORMULARE"
51 PRINT"ERSTELLT WERDEN, WIE ES DAS [205]USTER IM"
52 PRINT"[212]ITELBILD ZEIGT. [196]U KANNST BIS ZU  25 "
53 PRINT"WAAGRECHTE [211]PALTENBEZEICHNUNGEN EINGE-"
54 PRINT"BEN, WOBEI MINDESTENS 1, HOECHSTENS 26"
55 PRINT"[218]EICHEN VERWENDET WERDEN KOENNEN."
56 PRINT"[196]IE SENKRECHTEN [211]PALTEN KOENNEN IN DER"
57 PRINT"[193]NZAHL DER [196]RUCKZEILEN EINGESTELLT":PRINT"WERDEN. [198]ORMATIERUNG ERFOLG";
58 PRINT"T AUTOMATISCH!":PRINT"           **  [212][193][211][212][197] !  **
59 [161]T$:[139]T$[178]""[167]59
60 [153]"LOAD":[153]"(null)UM (null)TARTEN GIBST STR$U BEI DER"
61 [153]"STR$ATN(null)VAL(null)-VALRIGHT$CHR$ATNPEEKVAL DIE (null)AMEN DER (null)PALTEN"
62 [153]"VON LINKS NACH RECHTS EIN."
63 [153]"(null)VAL(null)(null)(null)(null) BEENDET DIE JEWEILIGE VALINGABE."
64 [153]"STR$EINE VALINGABE WIRD ANGEZEIGT UND STR$U"
65 [153]"BIST AUTOMATISCH WIEDER BEI VALRIGHT$(null)CHR$ATNPEEKVAL."
66 [153]"(null)O GIBST STR$U NACHEINANDER ALLE (null)AMEN EIN."
67 [153]"STR$AS (null)ROGRAMM ERRECHNET DAS ASCORMAT DES"
68 [153]"ASCORMULARS NACH JEDER VALINGABE. STR$U MUSST"
69 [153]"NICHT SO VIELE (null)PALTEN EINGEBEN, DASS"
70 [153]"DAS ASCORMAT AUSGEFUELLT WIRD, JEDOCH"
71 [153]"SIND NICHT MEHR VALINGABEN MOEGLICH, ALS"
72 [153]"DIE STR$RUCKBREITE ERLAUBT. PEEKEI EINER"
73 [153]"ASCEHLEINGABE EINER (null)PALTENBEZEICHNUNG"
74 [153]"'_' DRUECKEN, UND NOCHMALS EINGEBEN."
75 [153]"(null)UM PEEKEENDEN DER VALINGABEN TIPPST STR$U":[153]"ANSTATT EINES (null)AMENS '^' UND"
76 [153]"FOLGST DANN DEN ATNNWEISUNGEN.":[153]"           **  (null)ATN(null)(null)VALCLOSE!  **
77 GETT$:IFT$=""THEN77
78 PRINTCHR$(142);:RETURN:END